0 A=18944:FORI=1TO7:READZ$:PRINT".":FORJ=1TOLEN(Z$)STEP2:POKEA,(ASC(MID$(Z$,J,1))-65)*16+ASC(MID$(Z$,J+1,1))-65:A=A+1:NEXT:NEXT
1 CLS3:EXEC 18944:DATANMAJMEFKNNLPMOELCLMMPPBPKHAAAIIMELELCFAGIMENALCEABEPFKCGOPFDOHAAAIIMENCLCFODMMAGAENNLNNNLLIGPPLNEKNJ
2 DATALNEKPDNMLNNNLLHPAALKMOELCDMMAAPPINCKMMABAAINCFMMAAABINCAMMPPAAINBLNGLKCGCDNMLLJDLNCHBMINGBBGMOELBJDKOMAAJLLLNLLMNNLL
3 DATACAMLONAAINFACGAFAIAIHMAALKDJNMLPAENNLPFGFENIMAFIMEIANKLPNHLPJGMABHIEADJBLKCFAEJALKCAPIMOELCDBGFIDKNMLLAFKLAAOLABINFA
4 DATANMLLKLAAOLABNNLLKGABGJAAEJCEACIGADEMEIINBOINDGHOEKDJEPFPJLLLLHEKNBNLLMIGCADNMDELCLMDAAAAPNEKNGLGPPPPDJLHEKOONMLLLHEK
5 DATAOJIGCADNMDELCLMDAAAAPNEKPAIGAALHPPPPDJNMLLAFDMDGDHFEIGCADNMDEAAADHDGDAOGADFEDIDKDCDDIEABFGEJMGBAFEEKCKPMFDOEAAOHAADI
6 X=2:Y=2:Q=1000:PRINT@479,"";:RESET(61,28):PRINT@496,"HIGH"HS"ŻŻŻŻ";:IFSC>HSTHENHS=SC:PRINT@496,"HIGH"HS;:DATADJPPAAABAA
7 SET(X,Y,3):A=PEEK(2)ANDPEEK(17023):I=(A=65)-(A=68):J=(A=87)-(A=83):B=POINT(X+I,Y+J):IFB=0THENRESET(X,Y):X=X+I:Y=Y+J
8 Q=Q-1:PRINT@480,"TIME"Q,:RESET(X,Y):FORC=1TO25:NEXT:ON-(B<>2ANDQ>0)GOTO7:PRINT"SAME MAZE?";:SC=Q:IFQ=0THENSOUND1,10
9 I$=INKEY$:ON-(I$="")GOTO9:ON-(I$="Y")GOTO6:ON-(I$<>"N")GOTO9:SOUND109,4:SOUND53,2:SOUND134,8:RUN1:DATAAAPPAAAB
